home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / modem / tif_pro3.zip / THEINVEN.WAS < prev    next >
Text File  |  1996-05-25  |  2KB  |  90 lines
  1. ;The Invention Factory Recorded script.
  2. ;By Clayton M.
  3.  
  4. string szIpaddress
  5. string szGateWay
  6. string szMask
  7. string szDomain
  8.    
  9.    
  10. proc main
  11.    string  szUserName = $Nullstr
  12.    string  szPassword = $Nullstr
  13.    string  szStackINI = $Winpath
  14.    integer ISPMode
  15.    
  16.    fetch internet logonname szUserName
  17.    fetch internet password szPassword
  18.    fetch internet protocol ISPMode
  19.    addfilename szStackINI "SUPERTCP.INI"
  20.    
  21.    if ISPMode == 0
  22.       statmsg "Logging on to The Invention Factory ... Slip"
  23.    else
  24.       statmsg "Logging on to The Invention Factory ... PPP"
  25.    endif
  26.    
  27.    waitfor "Enter Language # to use (Enter)=no change? "
  28.    pause 1
  29.    if ISPMode == 0
  30.       transmit "3^M"
  31.    else
  32.       transmit "2^M"
  33.    endif
  34.    
  35.    waitfor "Do you want graphics (Enter)="
  36.    pause 1
  37.    transmit "n^M"
  38.  
  39.    waitfor "What is your first name?" 30
  40.    pause 1
  41.    transmit szUserName
  42.    transmit "^M"
  43.  
  44.    waitfor "Is this correct?" 30
  45.    pause 1
  46.    transmit "Y^M"
  47.    
  48.    waitfor "Password (Dots will echo)?" 30
  49.    pause 1
  50.    transmit szPassword
  51.    transmit "^M"
  52.    
  53.    waitfor "IPDoor" FOREVER
  54.    when target 1 "Your_Ipaddress: " call GetTheIp   ; 199.183.47.95
  55.    when target 2 "My_Ipaddress: "   call GetGateway ; 199.183.47.65
  56.    when target 3 "Netmask: "        call GetMask    ; 255.255.255.192
  57.    when target 4 "DomainName: "     call GetDomain  ; factory.com
  58.  
  59.    if ISPMode == 0
  60.       waitfor "Enter SLIP mode Now" FOREVER
  61.    else
  62.       waitfor "Enter PPP mode Now" FOREVER
  63.    endif
  64.    profilewr szStackINI "kernel"     "ipaddress"     szIpAddress
  65.    profilewr szStackINI "interfaces" "ipaddress1"    szIpAddress
  66.    profilewr szStackINI "kernel"     "ipgateway"     szGateWay
  67.    profilewr szStackINI "interfaces" "IPSubNetMask1" szMask
  68.    profilewr szStackINI "supertcp"   "hostname"      szDomain
  69. endproc
  70.  
  71.  
  72. proc GetTheIp
  73.    rget szIpAddress 256 FOREVER
  74.    termwrites szIpAddress
  75. endproc
  76.  
  77. proc GetGateway
  78.    rget szGateWay 256 FOREVER
  79.    termwrites szGateWay
  80. endproc   
  81.  
  82. proc GetMask
  83.    rget szMask 256 FOREVER
  84.    termwrites szMask
  85. endproc
  86.  
  87. proc GetDomain
  88.    rget szDomain 256 FOREVER
  89.    termwrites szDomain
  90. endproc